home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
biker dave
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
215 lines
10 poke53280,12:poke53281,12
20 print"[147][144][181] biker dave will be ready [144][182]"
30 print"[181] to ride in just a moment [144][182][146]"
40 print"[181]";:printspc(36);:print"[182]"
50 print"[181]";:printspc(36);:print"[182]"
60 print"[181]";:printspc(36);:print"[182]"
70 sa=249*64:poke53250,72:poke53251,153:poke53276,2:poke2041,249
80 gosub1360:gosub1360:restore
90 poke53285,7:poke53286,1:poke53288,0:poke53269,2
100 print"[144]":printspc(6);:fori=1to22:poke53250,72+i*8:print"[191]";:forj=1to50
110 next:next:poke55,0:poke56,48:clr
120 poke54276,0:poke54296,15:poke54290,128:poke54287,255:gosub1370
130 poke54276,16
140 poke54277,0:poke54278,240:pokev1,0:pokev2,50
150 fori=1to3:poke214,13:print:printtab(15)"get ready!";
160 poke54276,17:forj=1to255:next
170 print"[157][157][157][157][157][157][157][157][157][157] ":poke54276,64:forj=1to255:next:next
180 fori=1to150:next
190 poke54276,0:poke54278,240:poke54277,9
200 pokev1,0:pokev2,0:poke54274,100:poke54275,0:poke54276,65
210 x=x+int(sp*.04)+1:pokev1,sp*twandf:pokev2,sp*.0078+tw
220 ifx>fthenpoke53264,18:x=x-256:l=1
230 ifl=1thenifx>55thengoto290
240 pokevx,x:if(peek(js)and16)=0thensp=sp+5
250 poke214,20:print:printtab(19)sp:fori=0tof-sp*sp:next
260 ifsp>s1thenpoke2041,254
270 ifsp>s2thendx=4:goto640
280 goto210
290 c1=153+c*8:y=131:poke53251,y:pokevx,57:poke2041,253:fori=1tof:next
300 x=x-int(sp*.04)-1:pokev1,sp*twandf:pokev2,sp*.0078+tw
310 ifl=0thenifx<c1then360
320 ifx<0thenpoke53264,16:x=f+x:l=0
330 pokevx,x:if(peek(js)and16)=0thensp=sp+5
340 poke214,20:print:printtab(19)sp
350 forj=1tof-sp*sp:next:goto300
360 poke2041,f:dx=-3:dy=int(dx*.35):k=0
370 mp=int(((sp-jp)*.5+jp)*.105)
380 x=x+dx:y=y+dy:k=k+1
390 pokevx,x:poke53251,y
400 forj=1tof-sp*sp:next
410 ify>131theny=131:dy=0:poke2041,253:goto380
420 ifk=mpthendy=-dy*.3
430 ifx<122thenifx>117thenify<112ory>120thenpoke53251,131:goto650
440 ifx<37then460
450 goto380
460 c1=242-c*16:y=195:poke53251,y:pokevx,35:poke2041,249:fori=1tof:next
470 x=x+int(sp*.04)+1:pokev1,sp*twandf:pokev2,sp*.0078+2
480 ifx>c1then530
490 ifx>fthenpoke53264,18:x=x-256:l=1
500 pokevx,x:if(peek(js)and16)=0thensp=sp+5
510 poke214,20:print:printtab(19)sp
520 forj=1tof-sp*sp:next:goto470
530 poke2041,254:dx=4:dy=-int(dx*.5):k=0
540 mp=int(((sp-jp)*.5+jp)*.105)
550 x=x+dx:y=y+dy:k=k+1
560 ifx>fthenpoke53264,18:x=x-256:l=1
570 pokevx,x:poke53251,y
580 forj=1tof-sp*sp:next
590 ify<195then620
600 y=195:poke53251,y:poke2041,249:ifx<54orx>66then640
610 goto790
620 ifk=mpthendy=-int(dy*.3)
630 goto550
640 c1=-5:poke2041,249:goto660
650 c1=-2:poke2041,253
660 x=x+dx:c1=-c1:poke2041,peek(2041)+c1
670 ifx>fthenpoke53264,18:x=x-256:l=1
680 ifl=1thenifx>53thenify=67then730
690 ifx<40thenifl=0then730
700 ifx>100thenifl=1then730
710 pokevx,x:forj=1tof-sp*sp:next
720 pokev2,rnd(1)*4:pokev1,f*rnd(1):goto660
730 poke54276,64:pokevx,0:poke53264,16
740 poke54279,0:poke54280,4:poke54284,37:poke54285,250:poke54283,129
750 fori=1to15:j=rnd(1)*6
760 poke53265,(peek(53265)and248)orj:poke53270,(peek(53270)and248)orj
770 next:poke54283,128:fori=1to255:next
780 poke53265,27:poke53270,200:goto950
790 x=x+dx
800 ifx>150thenpoke54276,0:goto840
810 pokevx,x
820 forj=1tof-sp*sp:next
830 goto790
840 poke214,21:print:printtab(14)tc
850 c=c+1:tc=tc+c:s=2*(c*10-tr*5):tr=2:ifc>9thend=1:goto1270
860 s1=rnd(1)*10+36+8*c:s2=rnd(1)*15+81+8*c:jp=rnd(1)*20+90
870 poke54277,0:poke54278,160:pokev1,47:pokev2,65:poke54274,0:poke54275,8
880 fori=ttot+sstep5
890 poke54276,65:poke54276,64
900 poke214,22:print:printtab(19)i:forj=1to50:next
910 next:t=t+s
920 fori=1to8:poke53254,peek(53254)-2:poke53258,peek(53258)+1:next
930 gosub1160
940 goto970
950 bi=bi-1:ifbi>0thentr=tr+1:poke214,21:print:printtab(35)bi:goto970
960 d=0:goto1270
970 poke54272,0:poke54273,0
980 x=42:y=67:poke2041,249:poke53251,y:pokevx,x:poke53264,16:l=0:sp=5
990 poke214,20:print:printtab(19)" 0 "
1000 goto130
1010 poke53280,12:poke53281,12
1015 print"[147]biker":print" dave":print"[144][165] [167]";tab(36);"[153] [223]"
1020 print"[144] [204][175][175][175][186][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153] "
1030 printtab(37);:gosub1150
1040 print" [169] ";tab(36);" "
1050 print" [144][146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153] [146][169]
1060 [153]" ";:[141]1150
1070 [153]" "
1080 [153]" (NULL) waitstopandandandandandandandandandandandandandandandandandandandandandand andandandandandandand"
1090 [129]c[178]1[164]3:[141]1160:[130]:[153]
1100 [151]56095,0:[151]1823,111
1110 [153][163]13)"speed: 0 mph"
1120 [153]" cars jumped: 0 bikes left: 5"
1130 [153][163]13)"score: 0"
1140 [142]
1150 [153]" cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd ":[142]
1160 j[178][181]([187](1)[172]8):[151]214,17:[153]:[153][163]32[171]c[172]2);c$(j);" cmdcmd^_":[142]
1170 x[178]42:y[178]67:[151]53250,x:[151]53251,y:[151]53275,2:[151]53276,66
1180 [151]53254,206:[151]53255,195:[151]53256,26:[151]53257,195
1190 [151]53258,158:[151]53259,131:[151]53248,120:[151]53249,109
1200 [151]53252,120:[151]53253,109:[151]53260,120:[151]53261,94
1210 [151]53264,16:sp[178]5:l[178]0
1220 [129]i[178]0[164]4:[151]2040[170]i,248[170]i:[130]:[151]2045,252:[151]2046,246
1230 [151]53271,69
1240 [151]53269,127:[151]53277,16:[151]53290,0:[151]53291,0:[151]53292,0
1250 [151]53287,0:[151]53289,0:[151]53293,10
1260 [142]
1270 [151]54276,64:[151]53281,6:[151]53269,0:[153]"load"
1280 [139]d[167][153][163]5)"consider yourself king biker!!":[137]1300
1290 [153]"sysyou have wrecked your last bike!"
1300 [153]"sysyou successfully jumped";tc[171]c;"cars"
1310 [153][163]11)"sysfinal score is";t
1320 [153][163]8)"openpress fire to play again"
1330 [139]([194](js)[175]16)[178]0[167][141]1380:[137]130
1340 [137]1330
1350 [129]j[178]248[164]255:sa[178]j[172]64:[141]1360:[130]:[142]
1360 [129]i[178]0[164]39:[135]a:[151]sa[170]i,a:[130]:[129]i[178]40[164]63:[151]sa[170]i,0:[130]:[142]
1370 [141]1350:[141]1820:[141]1900:[141]2070
1380 x[178]42:sp[178]5:y[178]67:dx[178]dy:l[178]0:k[178]mp:vx[178]53250:v1[178]54272:v2[178]54273:tw[178]2:f[178]255
1390 js[178]56320:jp[178][187](1)[172]20[170]90:c[178]3:s1[178]65:s2[178]105:bi[178]5:t[178]0:tr[178]2:s[178]0:tc[178]3
1400 [141]1010:c[178]3:[141]1170
1410 [142]
1420 [131]0,12,0,0,6,0,0,3
1430 [131]0,0,1,128,0,1,128,0
1440 [131]0,192,0,0,192,0,0,192
1450 [131]0,1,128,0,1,128,0,3
1460 [131]0,0,6,0,0,12,0,0
1470 [131]0,0,0,0,0,0,0,15
1480 [131]0,0,15,0,0,60,0,0
1490 [131]252,0,3,207,0,23,195,64
1500 [131]87,213,80,105,246,144,130,120
1510 [131]32,130,200,32,40,2,128,0
1520 [131]0,48,0,0,96,0,0,192
1530 [131]0,1,128,0,1,128,0,3
1540 [131]0,0,3,0,0,3,0,0
1550 [131]1,128,0,1,128,0,0,192
1560 [131]0,0,96,0,0,48,0,0
1570 [131]0,0,0,0,0,0,0,0
1580 [131]0,0,0,0,0,0,3,0
1590 [131]0,15,0,0,63,0,0,255
1600 [131]0,3,255,0,15,255,0,63
1610 [131]255,0,255,255,3,255,255,0
1620 [131]0,0,0,0,0,0,0,0
1630 [131]0,0,0,0,192,0,0,240
1640 [131]0,0,252,0,0,255,0,0
1650 [131]255,192,0,255,240,0,255,252
1660 [131]0,255,255,0,255,255,192,0
1670 [131]0,0,0,0,0,0,15,0
1680 [131]0,15,0,0,3,192,0,3
1690 [131]240,0,15,60,0,28,61,64
1700 [131]85,125,80,105,246,144,130,216
1710 [131]32,130,56,32,40,2,128,0
1720 [131]3,192,0,3,192,0,3,0
1730 [131]0,3,245,0,3,5,64,3
1740 [131]22,128,3,216,32,3,248,32
1750 [131]21,114,128,90,112,0,96,176
1760 [131]0,32,128,0,10,0,0,0
1770 [131]0,60,0,0,60,0,0,12
1780 [131]0,5,252,0,21,12,0,41
1790 [131]76,0,130,124,0,130,252,0
1800 [131]40,213,64,0,218,80,0,224
1810 [131]144,0,32,128,0,10,0,0
1820 ml$[178]"new"[170][199](8)[170]"exp<"[170][199](3)[170]"verifyxmid$"[170][199](16)[170][199](248)[170]"lsintab(":[151]835,0
1830 [151]836,208:[151]830,0:[151]831,216:[151]828,0:[151]829,56:[151]56334,0
1840 [151]1,51:ml$[178]ml$:[158]([194](51)[170]256[172][194](52)):[151]1,55:[151]56334,1
1850 [129]i[178]12528[164]12543:[135]j:[151]i,j:[130]:[151]53272,[194](53272)[175]240[176]12
1860 [129]i[178]0[164]7:[135]a:c$(i)[178][199](a):[130]:[142]
1870 [131] 15,16,32,127,103,127,48,48
1880 [131] 224,16,8,252,204,252,24,24
1890 [131]5,28,31,144,153,155,158,159
1900 j[178]15744:[129]i[178]0[164]127:[135]a:[151]j[170]i,a:[130]:[142]
1910 [131]81,64,0,102,69,0,102,70
1920 [131]69,26,70,89,22,69,169,105
1930 [131]145,164,22,161,164,1,65,144
1940 [131]64,0,148,80,0,73,100,0
1950 [131]25,100,0,36,24,0,16,4
1960 [131]0,20,64,0,41,80,0,36
1970 [131]100,0,36,25,0,164,25,0
1980 [131]80,6,128,0,1,64,0,1
1990 [131]0,0,0,16,0,0,101,69
2000 [131]5,102,70,89,106,65,164,25
2010 [131]145,164,6,161,144,1,65,144
2020 [131]80,0,64,100,0,5,24,0
2030 [131]25,24,0,41,24,0,20,68
2040 [131]0,0,80,0,5,100,0,25
2050 [131]100,0,36,25,0,164,5,0
2060 [131]80,6,128,0,1,64,0,1
2070 [129]i[178]0[164]57:[135]a:[151]820[170]i,a:[130]:[158]820:[142]
2080 [131] 120,169,65,141,20,3,169,3,141,21
2090 [131] 3,88,96,173,27,212,41,1,77,254
2100 [131] 7,141,254,7,165,203,201,60,208,15
2110 [131] 32,100,3,32,159,255,165,203,201,60
2120 [131] 208,247,32,103,3,76,49,234,32,159
2130 [131] 255,165,203,201,60,240,247,96